home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / ms_dos / nifhand / m.aut < prev    next >
Encoding:
Text File  |  1993-07-08  |  1.8 KB  |  113 lines
  1. %901=3        ;ダウンロード-----+
  2. %902=100    ;未読処理を起動---+--するときの最少の会議室未読発言数
  3. %903=200    ;会議室登録を起動-+
  4.  
  5. IF ($63=="RC" || $63=="rc") || ($63=="R" || $63=="r")
  6. DO RC
  7. ENDIF
  8.  
  9. IF ($64=="TOROKU" || $64=="toroku") || ($64=="T" || $64=="t")
  10. DO TOROKU
  11. ENDIF
  12.  
  13. IF ($65=="HANDLE" || $65=="handle") || ($65=="H" || $65=="h")
  14. DO HANDLE
  15. ENDIF
  16.  
  17. %4=%5=%6=0
  18. SEND "MES\r",1
  19. WAIT "^J番号"
  20.  
  21. IF $61!=""    ;巡回会議室を設定できます
  22. WAIT "^J＞"
  23. SEND "MREAD ROOM:$61\r\r",1
  24. GOTO MRE1
  25. ENDIF
  26.  
  27. LABEL MR
  28. WAIT "\r"
  29. LOOK
  30. CASE " "
  31.  SCAN "(" %5 ")",9
  32.  %6=%6+%5
  33.  GOTO MR
  34. CASE "^J＞"
  35. FREE
  36.  
  37. IF %6<%901
  38.  ECHO "^G未読発言数(%6) が設定値(%901) 以下なのでスキップします＞"
  39.  END
  40. ELSEIF %902<%6 && %6<%903
  41.  CALL RC
  42.  SEND "MES\r",1
  43.  WAIT "^J＞"
  44. ELSEIF %6>=%903
  45.  CALL TOROKU
  46.  CALL RC
  47.  SEND "MES\r",1
  48.  WAIT "^J＞"
  49. ENDIF
  50. SEND "MRE\r\r",1
  51.  
  52. LABEL MRE1
  53. IF ($67=="FAPX" || $67=="fapx") || ($67=="F" || $67=="f")
  54.  CMD D "$900:\\$60\\$60.$945$942"
  55.  LOOK
  56.  CASE "◆現在未読の発言"
  57.   WAIT "^J＞"
  58.  CASE "◆次頁はありませ"
  59.   WAIT "^J＞"
  60.  FREE
  61.  CMD D
  62.  END
  63. ENDIF
  64.  
  65. LOOK
  66. CASE "^J- $60 "
  67.  SCAN "(" %4 ")"
  68.  IF %4<10
  69.   $901="M0%4$943"
  70.  ELSE
  71.   $901="M%4$943"
  72.  ENDIF
  73.  CMD D "$900:\\$60\\$901.LOG"
  74.  GOTO MRE1
  75. CASE "◆現在未読の発言"
  76.  WAIT "^J＞"
  77. CASE "◆次頁はありませ"
  78.  WAIT "^J＞"
  79.  CMD D
  80. FREE
  81. END
  82.  
  83. PROC TOROKU
  84. ECHO "^G\r未読発言数(%6) が設定値(%903) を越えています"
  85. ECHO "\r  会議室登録の変更を行いますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  86. LOOKKEY 60
  87. CASE "Y"
  88.  DO TOROKU
  89. CASE "y"
  90.  DO TOROKU
  91. CASE "N"
  92. CASE "n"
  93. CASE/TIMEOUT
  94.  END
  95. FREE
  96. ENDPROC
  97.  
  98. PROC RC
  99. ECHO "\r未読発言数(%6) が設定値(%902) を越えています"
  100. ECHO "\r^G  未読分の処理を行いますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  101. LOOKKEY 60
  102. CASE "Y"
  103.  DO RC
  104. CASE "y"
  105.  DO RC
  106. CASE "N"
  107. CASE "n"
  108. CASE/TIMEOUT
  109.  END
  110. FREE
  111. ENDPROC
  112.  
  113.